Imports System.Xml
Imports System.Data.SqlClient
Public Class dListaDePrecio
    Public Function Existe(ByVal CodigoLista As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))
        Return (dConexion.Consultar("STORE_TblListaDePreciosBuscar", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal FechaInicial As Date, ByVal ValorKM As Double, ByVal ValorHs As Double, ByVal estado As String, ByVal codigoTunidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        Parametros.Add(New SqlParameter("@pEFechaInicial", FechaInicial.ToShortDateString))
        Parametros.Add(New SqlParameter("@pEValorKM", ValorKM))
        Parametros.Add(New SqlParameter("@pEValorHS", ValorHs))
        Parametros.Add(New SqlParameter("@pEEstado", estado))
        Parametros.Add(New SqlParameter("@pECodigoTunidad", codigoTunidad))

        Return dConexion.ABM("STORE_TblListaDePreciosAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoLista As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))
        Return dConexion.ABM("STORE_TblListaDePreciosELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoLista As Long, ByVal FechaInicial As Date, ByVal ValorKM As Double, ByVal ValorHs As Double, ByVal estado As String, ByVal codigoTunidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoLista <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))
        End If
        If FechaInicial <> New Date() Then
            Parametros.Add(New SqlParameter("@pEFechaInicial", FechaInicial))
        End If
        If ValorKM <> 0 Then
            Parametros.Add(New SqlParameter("@pEValorKM", ValorKM))
        End If
        If ValorHs <> 0 Then
            Parametros.Add(New SqlParameter("@pEValorHs", ValorHs))
        End If
        If estado <> "" Then
            Parametros.Add(New SqlParameter("@pEestado", estado))
        End If
        If codigoTunidad <> 0 Then
            Parametros.Add(New SqlParameter("@pEcodigoTunidad", codigoTunidad))
        End If


        Return dConexion.ABM("STORE_TblListaDePreciosMODIFICAR", Parametros)
    End Function
    Public Function Buscar(ByVal CodigoLista As Long, ByVal FechaInicial As Date, ByVal ValorKM As Double, ByVal ValorHs As Double, ByVal estado As String, ByVal codigoTunidad As Long) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoLista <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))
        End If
        If FechaInicial <> New Date() Then
            Parametros.Add(New SqlParameter("@pEFechaInicial", FechaInicial))
        End If
        If ValorKM <> 0 Then
            Parametros.Add(New SqlParameter("@pEValorKM", ValorKM))
        End If
        If ValorHs <> 0 Then
            Parametros.Add(New SqlParameter("@pEValorHs", ValorHs))
        End If
        If estado <> "" Then
            Parametros.Add(New SqlParameter("@pEestado", estado))
        End If
        If codigoTunidad <> 0 Then
            Parametros.Add(New SqlParameter("@pEcodigoTunidad", codigoTunidad))
        End If

        Return dConexion.Consultar("STORE_TblListaDePreciosBUSCAR", Parametros)
    End Function
    Public Function Listar() As DataSet
        Return dConexion.Consultar("STORE_TblListaDePreciosBUSCAR", New ArrayList)
    End Function
End Class
